# load google trend files into the workspace first
load("one.RData")
load("two.RData")
load("three.RData")
load("four.RData")
load("five.RData")
load("six.RData")
load("seven.RData")
load("eight.RData")
load("nine.RData")
load("ten.RData")
load("eleven.RData")
load("twelve.RData")
load("thirteen.RData")
load("fourteen.RData")
load("fifteen.RData")
load("lamp1.RData")


# plot google trends

lamp11 <- ggplot(lamp1, aes(x = Day, y = Lampedusa, group = 1)) + 
  geom_path(size = 2, color = "slateblue4") +
  ylim(0,100) +
  xlab("") +
  ylab("") +
  theme_classic(base_size = 16) +
  scale_x_discrete(breaks = c("2013-09-19", "2013-10-03", "2013-10-17"), labels = c("-14", "0", "14")) +
  geom_vline(xintercept = "2013-10-03", linewidth = 2, linetype = "dashed") +
  ggtitle("03.10.2013 (Lampedusa)")

one1 <- ggplot(one, aes(x = Day, y = Tripoli, group = 1)) + 
  geom_path(size = 2, color = "slateblue4") +
  ylim(0,100) +
  xlab("") +
  ylab("") +
  theme_classic(base_size = 16) +
  scale_x_discrete(breaks = c("2014-08-17", "2014-08-31", "2014-09-14"), labels = c("-14", "0", "14")) +
  geom_vline(xintercept = "2014-08-31", linewidth = 2, linetype = "dashed") +
  ggtitle("31.08.2014 (Tripoli)")

two1 <- ggplot(two, aes(x = Day, y = Tadschura, group = 1)) + 
  geom_path(size = 2, color = "slateblue4") +
  ylim(0,100) +
  xlab("") +
  ylab("") +
  theme_classic(base_size = 16) +
  scale_x_discrete(breaks = c("2014-08-31", "2014-09-14", "2014-09-28"), labels = c("-14", "0", "14")) +
  geom_vline(xintercept = "2014-09-14", linewidth = 2, linetype = "dashed") +
  ggtitle("14.09.2014 (Tadschura)")

three1 <- ggplot(three, aes(x = Day, y = Lampedusa, group = 1)) + 
  geom_path(size = 2, color = "slateblue4") +
  ylim(0,100) +
  xlab("") +
  ylab("") +
  theme_classic(base_size = 16) +
  scale_x_discrete(breaks = c("2015-01-25", "2015-02-08", "2015-02-22"), labels = c("-14", "0", "14")) +
  geom_vline(xintercept = "2015-02-08", linewidth = 2, linetype = "dashed") +
  ggtitle("08.02.2015 (Lampedusa)")

four1 <- ggplot(four, aes(x = Day, y = Lampedusa, group = 1)) + 
  geom_path(size = 2, color = "slateblue4") +
  ylim(0,100) +
  xlab("") +
  ylab("") +
  theme_classic(base_size = 16) +
  scale_x_discrete(breaks = c("2015-04-04", "2015-04-18", "2015-05-02"), labels = c("-14", "0", "14")) +
  geom_vline(xintercept = "2015-04-18", linewidth = 2, linetype = "dashed") +
  ggtitle("18.04.2015 (Lampedusa)")

five1 <- ggplot(five, aes(x = Day, y = Rosetta, group = 1)) + 
  geom_path(size = 2, color = "slateblue4") +
  ylim(0,100) +
  xlab("") +
  ylab("") +
  theme_classic(base_size = 16) +
  scale_x_discrete(breaks = c("2016-09-07", "2016-09-21", "2016-10-05"), labels = c("-14", "0", "14")) +
  geom_vline(xintercept = "2016-09-21", linewidth = 2, linetype = "dashed") +
  ggtitle("21.09.2016 (Rosetta)")

six1 <- ggplot(six, aes(x = Day, y = Lampedusa, group = 1)) + 
  geom_path(size = 2, color = "slateblue4") +
  ylim(0,100) +
  xlab("") +
  ylab("") +
  theme_classic(base_size = 16) +
  scale_x_discrete(breaks = c("2016-10-19", "2016-11-02", "2016-11-16"), labels = c("-14", "0", "14")) +
  geom_vline(xintercept = "2016-11-02", linewidth = 2, linetype = "dashed") +
  ggtitle("02.11.2016 (Lampedusa)")

seven1 <- ggplot(seven, aes(x = Day, y = Kavala, group = 1)) + 
  geom_path(size = 2, color = "slateblue4") +
  ylim(0,100) +
  xlab("") +
  ylab("") +
  theme_classic(base_size = 16) +
  scale_x_discrete(breaks = c("2016-10-31", "2016-11-14", "2016-11-28"), labels = c("-14", "0", "14")) +
  geom_vline(xintercept = "2016-11-14", linewidth = 2, linetype = "dashed") +
  ggtitle("14.11.2016 (Kavala)")


eight1 <- ggplot(eight, aes(x = Day, y = Tripoli, group = 1)) + 
  geom_path(size = 2, color = "slateblue4") +
  ylim(0,100) +
  xlab("") +
  ylab("") +
  theme_classic(base_size = 16) +
  scale_x_discrete(breaks = c("2016-12-31", "2017-01-14", "2017-01-28"), labels = c("-14", "0", "14")) +
  geom_vline(xintercept = "2017-01-14", linewidth = 2, linetype = "dashed") +
  ggtitle("14.01.2017 (Tripoli)")

nine1 <- ggplot(nine, aes(x = Day, y = Tripoli, group = 1)) + 
  geom_path(size = 2, color = "slateblue4") +
  ylim(0,100) +
  xlab("") +
  ylab("") +
  theme_classic(base_size = 16) +
  scale_x_discrete(breaks = c("2017-02-06", "2017-02-20", "2017-03-06"), labels = c("-14", "0", "14")) +
  geom_vline(xintercept = "2017-02-20", linewidth = 2, linetype = "dashed") +
  ggtitle("20.02.2017 (Tripoli)")

ten1 <- ggplot(ten, aes(x = Day, y = Tripoli, group = 1)) + 
  geom_path(size = 2, color = "slateblue4") +
  ylim(0,100) +
  xlab("") +
  ylab("") +
  theme_classic(base_size = 16) +
  scale_x_discrete(breaks = c("2017-03-09", "2017-03-23", "2017-04-06"), labels = c("-14", "0", "14")) +
  geom_vline(xintercept = "2017-03-23", linewidth = 2, linetype = "dashed") +
  ggtitle("23.03.2017 (Tripoli)")

eleven1 <- ggplot(eleven, aes(x = Day, y = Tripoli, group = 1)) + 
  geom_path(size = 2, color = "slateblue4") +
  ylim(0,100) +
  xlab("") +
  ylab("") +
  theme_classic(base_size = 16) +
  scale_x_discrete(breaks = c("2017-04-02", "2017-04-16", "2017-04-30"), labels = c("-14", "0", "14")) +
  geom_vline(xintercept = "2017-04-16", linewidth = 2, linetype = "dashed") +
  ggtitle("16.04.2017 (Tripoli)")

twelve1 <- ggplot(twelve, aes(x = Day, y = Tripoli, group = 1)) + 
  geom_path(size = 2, color = "slateblue4") +
  ylim(0,100) +
  xlab("") +
  ylab("") +
  theme_classic(base_size = 16) +
  scale_x_discrete(breaks = c("2017-06-03", "2017-06-17", "2017-07-01"), labels = c("-14", "0", "14")) +
  geom_vline(xintercept = "2017-06-17", linewidth = 2, linetype = "dashed") +
  ggtitle("17.06.2017 (Tripoli)")

thirteen1 <- ggplot(thirteen, aes(x = Day, y = Tripoli, group = 1)) + 
  geom_path(size = 2, color = "slateblue4") +
  ylim(0,100) +
  xlab("") +
  ylab("") +
  theme_classic(base_size = 16) +
  scale_x_discrete(breaks = c("2019-01-04", "2019-01-18", "2019-02-01"), labels = c("-14", "0", "14")) +
  geom_vline(xintercept = "2019-01-18", linewidth = 2, linetype = "dashed") +
  ggtitle("18.01.2019 (Tripoli)")

fourteen1 <- ggplot(fourteen, aes(x = Day, y = Nouadhibou, group = 1)) + 
  geom_path(size = 2, color = "slateblue4") +
  ylim(0,100) +
  xlab("") +
  ylab("") +
  theme_classic(base_size = 16) +
  scale_x_discrete(breaks = c("2019-11-20", "2019-12-04", "2019-12-18"), labels = c("-14", "0", "14")) +
  geom_vline(xintercept = "2019-12-04", linewidth = 2, linetype = "dashed") +
  ggtitle("12.04.2019 (Nouadhibou)")

fifteen1 <- ggplot(fifteen, aes(x = Day, y = Tripoli, group = 1)) + 
  geom_path(size = 2, color = "slateblue4") +
  ylim(0,100) +
  xlab("") +
  ylab("") +
  theme_classic(base_size = 16) +
  scale_x_discrete(breaks = c("2021-12-03", "2021-12-17", "2021-12-31"), labels = c("-14", "0", "14")) +
  geom_vline(xintercept = "2021-12-17", linewidth = 2, linetype = "dashed") +
  ggtitle("17.12.2021 (Tripoli)")



ggarrange(lamp11, one1, two1, three1, four1, five1, six1, seven1, 
          eight1, nine1, ten1, eleven1, twelve1, thirteen1, fourteen1, fifteen1, ncol = 4, nrow = 4)
